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{* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
{* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
{* ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
{+ THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
{* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
{+ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
{+ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE. MADE AVAILABLE TOANY 
{* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
{* TRANSFERRED. ’ 
® 
® 
® 
® 
® 
& 
*® 
® 
® 
® 


{* i INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
{* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
{* CORPORATION. 

{* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
{* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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module S$UETIDBDEF; 


/* FACILITY: UETP, Regression Tests and Performance Measurement 
* 
/* ABSTRACT: 
/* Provide the definitions needed for various data structures ag 
/* among different programs. Defined are the PO representatio 


of 
/* VMS's cluster and local I/0 database referenced by the UETPSCLS10DB 
/* ct By 


we 

* AUTHOR: Richard N. Holstein, CREATION DATE: 27-Sep-1982 
® 

* MODIFIED BY: 

* v03-003 RNHOOOS Richard N. Holstein 22-Dec-1983 | 


+ Add provision %.. PBSW STATE, PBSB _RSTATE, PesB _CBL_STS, 

‘ PB$B_PO_STS and PBSB_PT_STS fields. 

* V03-002 RNHOO002 Richard N. Holstein 15-Jul-1983 

+ Define fields a. DEVCHAR’ and DEVCRAR2 in UCB records. 

* v03-001 pearngot Richard N. Holstein, 04-Jan-1983 
* Modify to follow more closely the VMS style of SDL files. 
* Change integers to be unsigned. Add some items corresponding 
e 


to those in S$SBDEF and a flag to skip the system block for 
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. the system which is going through the cluster database. 
ef 
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/t 
/* Null record 
ounrepete VETIDB_NULL structure prefix UIDNULLS; 
FLINK address; /* Pointer to next record of this type 
SIZE word unsigned; /* Length of this record 
TYPE byte unsigned; /* piveys UIDSK_NULL_RTYPE 
constant FFREE equals .; /* Firs 
end VETiDB_NULL; 


free byte 


/*e 
/* Store system block info 
aggregate ETIDB_SID structure prefix UIDSID$; 
FLINK address; /* Pointer to next record of this type 
SIZE word unsigned; /* Length of this record 
TYPE byte uns igned; /* Always UIDSK_SID_RTYPE 
PBFL longword unsigned; /* Pointer to first path block 
SYSTEMID byte unsigned dimension 6; /* System id - SBSS_SYSTEMID long 
SWTYPE character Length 4; /* ASCII software type 
SWVERS character length 4; /* ASCII software version 


] 
SY 
“ Record types for 1/0 database ; 
/* The record types defined below are used not ony for identifying record ‘ 
/* types in the PO database created by Uy eet S100 - but to dispatch in case ° 
. statements. Therefore, the order is important. ° 
| o 
constant ( ; 
NULL_RTYPE /* Record type of null record ° 
»SID_RTYPE /* Record type of system block record . 
»PATR_RTYPE /* Record type of path block record ‘ 
,DDB_RTYPE /* Record type of DDB record ‘ 
-UCB_RTYPE /* Record type of UCB record ° 
oMPM_RTYPE /* Record type of shared memory record ° 
END_RTYPE /* Record type for end of all records ° 
j equals 0 increment 1 prefix UID$; ° 
. Record definitions ‘ 
/* These definitions are used for the individual records that describe the ‘ 
/* peripherals available to a system and for the flags that say which records ° 
/* are to be returned. There are seven kinds of record: a system record, . 
/* a path record, a DDB record, a UCB record, an MPM record, an end record ° 
/* and a null record. The first five correspond to similar items one finds ‘ 
/* when traversing VMS's 1/0 database. The end record g*yes a convenient way ‘ 
/* to end if one reads the local data structure sequentially. The null record ° 
/* is available to allow for various housekeeping features. A generic record ‘ 
Ma is also defined to emphasize the fields that are the same in all records. . 
® . 
Jt : 
/* Generic fields in all records ; 
aggregate UETIDB_GNRC structure prefix UIDGNRCS$; ‘ 
FLINK address; /* Pointer to next record of this type ‘ 
SIZE word unsigned; /* Length of this record ; 
TYPE byte unsigned; /* Always UIDSK_xxxx_RTYPE ‘ 
end VETIDB_GNRC; . 
| 
| ; 
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ome ye number 
NAME character length 1; /* able H.. TASCIC = MPM name 


vad a quadword unsigned; /* Software incarnation # 
HWTYPE character length 4; /* bee hardware type, blank filled 
HWVERS pyte unsigned dimension 12; /* ASCII a version 
NODENAME character Length 16; /* ASCIC SCS noden 
DDB tant FFREE unsigned; /* Pointer to first "Oe on List 
constan — equals .; /* First free byte 
end UETIDB.S 
/* 
/* Store path info 
overepete US UETIDB_PATH structure prefix UIDPATHS; 
ddress; /* Pointer to next record of this type 
SIZE word unsigned; /* Length of this record 
TYPE byte unsigned; /* Always UIDSK_PATH_RTYPE 
STATE word unsigned; /* Virtual circuit state 
LPORT_NAME character Length 4; /* Local port name 
RSTATE byte uns igne : /* Remote port state 
CBL_STS byte unsigned; /* Overall cable status 
O_STS byte unsigned; /* Path A status 
P1_STS byte unsigned; /* Path B status 
constant FFREE equals o3 /* First free byte 
end UETIDB. PATH; 
/* 
/* Store DDB info 
aggregate po 3008 structure prefix UIDDDBS; 
ie K addre /* Pointer to next record of this type 
SIZE word “unsigned: /* Length of this record 
TYPE byte unsigned; /* Always UIDSK_DDB_ RTYPE 
UCB Longword unsigned; * Pointer to first UCB 
NAME character length 1; 7/* Variable length .ASCIC - DDB name 
constant FFREE equals .; /* First possible free byte 
end UETIDE. DDB; 
/* 
/* Store UCB info 
ecorepete US VETIDB_UCB structure oy UIDUCBS; 
ddress; /* Pointer to next record of this type 
SIZE word unsigned; /* Length of this record 
TYPE byte unsigned; /* Always UIDSK UCB_RTYPE 
NUMBER word unsigned; /* Unit number ~ 
DEVCLASS byte unsigned; /* Device ghaes 
DEVTYPE byte unsigned; /* Device type 
DEVCHAR longword unsigned; /* First set of device characteristics 
DEVCHAR2 lLongword uns gned; /* Second set of device characteristics 
constant FFREE equals .; /* First free byte 
end UETIDE. uCcB; 
/t 
/* Store shared tout tigers? memory info 
aggregate UETIDB_MPM structure oretix UIDMPMS$; 
INK address; /* Pointer to next record of this type 
SIZE word unsigned; /* Length of phe of tee 
TYPE byte unsigned; /* Always UipSK A PMRTYP E 
NUMBER word unsigned; /* 


— | 
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constant FFREE equals .; /* First possible free byte 
end UETIDB_MPM; 


/* 

/* End of records record 

ooerepste UETIDB_END structure prefix UIDENDS; 
FLINK addr : / 


ess * Pointer to next record of this type 
SIZE word unsigned; /* Length of this record 
TYPE byte unsigned; /* Always UIDSK_END_RTYPE 


constant FFREE equals .; /* First possible free byte 
end VETIDB_END; 


/* Flags 
® 


/* Flags determining which subset of record types should be returned. The 

/* flags are not to pity independent, i.e., there are some semantics needed 
to determine which affect others. If a data structure is ‘dependent 

/* spetates to) by another kind of data structure, then returning information 
about the first depends on returning information about the second. 

/* Examples: to return UCB info, one must return DDB info; to return path 

/* block info one must return cluster info. Note that the DDB flag is 

/* redundant for local device info but necessary for cluster info. 


aggregate UETIDB_FLAGS structure prefix UIDFLAGS; 
SID bitfield mask; /* If set, return system block info 
PATH bitfield mask; /* If set, return pare block info 
DB bitfield mask; /* If set, return DDB info 

UCB bitfield mask; /* If set, return UCB info 

MPM bitfield mask; /* If set, return shared memory info 

MYSYS bitfield mask; /* If set, return cluster info about myself 
end VETIDB_FLAGS; 


end_module SUETIDBDEF ; 
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